home *** CD-ROM | disk | FTP | other *** search
/ STraTOS 1997 April & May / STraTOS 1 - 1997 April & May.iso / CD01 / PRGMANIA / BFED.10 / FILES.C < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-27  |  6.5 KB  |  351 lines
  1. /*
  2.     file: files.c
  3.     utility:
  4.     date: 1989
  5.     author: Jim Charlton
  6.     modifications:
  7.         1995: C. Moreau: 
  8.     comments: 
  9. */
  10.  
  11. #include <stdio.h>
  12. #include <string.h>
  13.  
  14. #ifdef __PUREC__ 
  15. #include <aes.h>
  16. #include <tos.h>
  17. #include <vdi.h>
  18. #include <compend.h>
  19. #include <toserr.h>
  20. #else
  21. #include <aesbind.h>
  22. #include <osbind.h>
  23. #include <vdibind.h>
  24. #endif
  25.  
  26. #include "e:\proging\c\libs\malib\alert.h"
  27. #include "e:\proging\c\libs\malib\fselect.h"
  28.  
  29. #include "edit.h"
  30. #include "bufman.h"
  31. #include "files.h"
  32. #include "wind.h"
  33.  
  34. #include "bfed_rsc.h"
  35.  
  36. /*
  37.     globals vars
  38. */
  39. char    app_path[PATH_MAX];            /* current application path */
  40.  
  41. /*
  42.     locals vars
  43. */
  44. static char    lastpath[PATH_MAX];    /* Last path used */
  45. static char    fs_insel[PATH_MAX];    
  46. static char    fs_inpath[PATH_MAX];
  47.  
  48. /*
  49.     name: read_file
  50.     utility: 
  51.     comment: 
  52.     parameters:
  53.     return:
  54.     date: 1989
  55.     author: Jim Charlton
  56.     modifications:
  57.         1995: C. Moreau: 
  58. */
  59. int read_file(windowptr    thewin)
  60. {
  61.     int fildes, ret = TRUE;
  62.     linkbufptr    bufptr;
  63.  
  64.     graf_mouse(BUSY_BEE,0L);
  65.  
  66.     if ((fildes = open(thewin->title, O_RDWR)) != -1 )
  67.     {
  68.         const long flenr = Fseek(0L, fildes, SEEK_END);        /* get file length */
  69.  
  70.         Fseek(0L, fildes, SEEK_SET);    /* rewind */
  71.  
  72.         if (flenr >= 1)
  73.         {
  74.             long red, toread;
  75.         
  76.             for (toread=flenr; toread>0; toread-=BLOCKSIZE)
  77.             {
  78.                 long readnow = (toread < BLOCKSIZE) ? toread : BLOCKSIZE;
  79.  
  80.                 bufptr = addmember(thewin);
  81.                 if (bufptr)  /* memory available  */
  82.                 {        /* read file to ram */
  83.                     if( (red = Fread(fildes,readnow,bufptr->block)) > 0 )
  84.                     {
  85.                         bufptr->inuse = red;
  86.                         thewin->flen += red;
  87.                     }      
  88.                     else
  89.                     {
  90.                         graf_mouse(ARROW,0L);
  91.                         rsc_alert(READ_ERR);
  92.                         ret = FALSE;
  93.                         break;
  94.                     }
  95.                 }
  96.                 else    
  97.                 {
  98.                     graf_mouse(ARROW,0L);
  99.                     rsc_alert(NOMEM_2);
  100.                     ret = FALSE;
  101.                     break;
  102.                 }
  103.             }
  104.             close(fildes);
  105.  
  106.                 /* put extra char 00 at end of file  */
  107.             if(thewin->flen > 0)
  108.             {
  109.                 if(bufptr->inuse < BLOCKSIZE)
  110.                 {
  111.                     bufptr->inuse++;
  112.                     thewin->flen++;
  113.                 }
  114.                 else
  115.                 {
  116.                     bufptr = addmember(thewin); 
  117.                     if (!bufptr)  /* if no memory available  */
  118.                     {
  119.                         graf_mouse(ARROW,0L);
  120.                          rsc_alert(NOMEM_3);
  121.                          return FALSE;
  122.                     }
  123.                     else                
  124.                     {
  125.                         bufptr->inuse++;
  126.                         thewin->flen++;
  127.                     }
  128.                 }    
  129.              }
  130.           }
  131.         else
  132.         {
  133.             graf_mouse(ARROW,0L);
  134.             rsc_alert(READ_ERR2);
  135.             return FALSE;
  136.         }
  137.     }
  138.     else
  139.     {
  140.         graf_mouse(ARROW,0L);
  141.         rsc_alert(READ_ERR2);
  142.         return FALSE;
  143.     }
  144.     
  145.     graf_mouse(ARROW,0L);
  146.     return(ret);
  147. }
  148.  
  149. /*
  150.     name: write_file
  151.     utility: 
  152.     comment: 
  153.     parameters:
  154.     return:
  155.     date: 1989
  156.     author: Jim Charlton
  157.     modifications:
  158.         1995: C. Moreau: 
  159. */
  160. void write_file(windowptr thewin)
  161. {
  162.     char *string;
  163.     
  164.     rsrc_gaddr(R_STRING, S_SAVEFILE, &string);
  165.  
  166.     if (getfile(thewin, string))
  167.          save_file(thewin);
  168. } 
  169.  
  170. /*
  171.     name: save_file
  172.     utility: 
  173.     comment: 
  174.     parameters:
  175.     return:
  176.     date: 1989
  177.     author: Jim Charlton
  178.     modifications:
  179.         1995: C. Moreau: 
  180. */
  181. void save_file(windowptr    thewin)
  182. {
  183.     if (thewin->flen >= 2) 
  184.     {             
  185.         int fildes;    
  186.  
  187.         graf_mouse(BUSYBEE, 0L);
  188.             /* delete the dummy byte at end of file    */    
  189.             /*    the 0 flag in the delete_one call allows for delete last byte    */
  190.         delete_one(thewin,thewin->flen-1,0);
  191.     
  192.         fildes = open(thewin->title, O_RDONLY);        /* If a same file already exist */
  193.         if (fildes > 0)
  194.         {
  195.             close(fildes);
  196.  
  197.             graf_mouse(ARROW, 0L);
  198.             if ( rsc_alert(FILE_EXIST) == 2)
  199.                 return;
  200.             graf_mouse(BUSYBEE, 0L);
  201.  
  202.             Fdelete(thewin->title);
  203.         }
  204.         
  205.         fildes = creat(thewin->title, O_RDWR);
  206.         if(fildes != -1)
  207.         {
  208.             linkbufptr amem = thewin->headptr;
  209.             int error=E_OK;
  210.  
  211.             while (amem && error >= E_OK)
  212.             {
  213.                 error = (int)Fwrite(fildes, amem->inuse, amem->block);
  214.                  if (error < E_OK)
  215.                 {
  216.                     graf_mouse(ARROW,0L);
  217.                     form_error(-31-error);
  218.                     graf_mouse(BUSYBEE,0L);
  219.                 }
  220.                 amem=amem->next;
  221.             }
  222.  
  223.             close(fildes);
  224.             thewin->changed = FALSE;
  225.     
  226.             /* reinsert the Null byte at end of buffer copy of file     */
  227.                 /* step to the last buffer block in list    */
  228.             for(amem=thewin->headptr;amem->next;amem=amem->next);
  229.             
  230.             if(amem->inuse < BLOCKSIZE)    /* can put it in an existing block */
  231.             {
  232.                 amem->inuse ++;
  233.                 *(amem->block + amem->inuse) = (char)0;
  234.                  thewin->flen ++;
  235.             }
  236.             else
  237.             {
  238.                 amem = addmember(thewin); 
  239.                 if (!amem)  /* no more memory available  */
  240.                 {
  241.                     graf_mouse(ARROW, 0L);
  242.                     rsc_alert(NO_LASTBYTE);
  243.                 }
  244.                 else                
  245.                 {
  246.                     amem->inuse ++;
  247.                     *(amem->block + amem->inuse) = (char)0;
  248.                     thewin->flen ++;
  249.                 }
  250.             }    
  251.         }
  252.         else
  253.         {
  254.             graf_mouse(ARROW,0L);
  255.             rsc_alert(SAVE_ERR);
  256.             return;
  257.         }
  258.         graf_mouse(ARROW, 0L);
  259.     }
  260.     else
  261.     {
  262.         rsc_alert(SAVE_NULL);
  263.     }
  264. }
  265.  
  266. /*
  267.     name: getfile
  268.     utility: let the user to choose a file name
  269.     comment: 
  270.     parameters: thewin
  271.                 string: Name of the fileselector.
  272.     return: 1 with name in thewin->title, 0 with cancel
  273.     date: 1989
  274.     author: Jim Charlton
  275.     modifications:
  276.         jun 1996: C. Moreau: fsel_input become fileselect to use new
  277.          fsel_exinput(TOS>1.04). Add name.
  278. */
  279. int getfile(windowptr thewin, char *string)
  280. {
  281.     int fs_button = fsel_autoinput("*.*", fs_insel, fs_inpath, string);
  282.         
  283.     if (fs_button==FSEL_OK)
  284.     {
  285.         strcpy(thewin->title, fs_inpath); /* copy pathname to title */
  286.         wind_set(thewin->handle, WF_NAME, thewin->title, 0, 0);
  287.         return(1);
  288.     }
  289.     else
  290.           return(0);
  291. }
  292.  
  293. /*
  294.     name: delfile
  295.     utility: let the user to choose a file to be deleted
  296.     comment: 
  297.     parameters:
  298.     return: 1 with del, 0 with cancel 
  299.     date: 1989
  300.     author: Jim Charlton
  301.     modifications:
  302.         Jun 1996: C. Moreau: fsel_input become fileselect to use new
  303.          fsel_exinput(TOS>1.04).
  304. */
  305. int delfile(void)  
  306. {
  307.     int error;
  308.     int fs_button;
  309.     char *string;
  310.     
  311.     rsrc_gaddr(R_STRING, S_DELFILE, &string);
  312.     fs_button = fsel_autoinput("*.*", fs_insel, fs_inpath, string);
  313.  
  314.     if (fs_button==FSEL_OK)
  315.     {
  316.         graf_mouse(BUSY_BEE, 0L);
  317.         error = Fdelete(fs_inpath);
  318.         graf_mouse(ARROW, 0L);
  319.  
  320.         if (error)
  321.             form_error(-31-error);
  322.         else
  323.             return 1;
  324.     }
  325.  
  326.     return(0);
  327. }
  328.  
  329. /*
  330.     name: init_files
  331.     utility: initialize vars of files.c module
  332.     comment: 
  333.     parameters: none
  334.     return: none
  335.     date: 10 may 96
  336.     author: C.Moreau
  337.     modifications:
  338. */
  339. void init_files(void)
  340. {
  341.     char *string;
  342.     
  343.         /* Get Default path for files */
  344.     Dgetpath(lastpath, DEFAULT_DRIVE);
  345.     sprintf(fs_inpath,"%c:%s\\*.*", 'A' + Dgetdrv(), lastpath);
  346.  
  347.     rsrc_gaddr(R_STRING, S_UNTITLED, &string);
  348.     
  349.     strcpy(fs_insel, string);
  350. }
  351.